home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webmon_1 / frmexit.frm < prev    next >
Text File  |  1999-08-09  |  1KB  |  50 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmExit 
  3.    BackColor       =   &H000000FF&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Ending"
  6.    ClientHeight    =   840
  7.    ClientLeft      =   5700
  8.    ClientTop       =   5955
  9.    ClientWidth     =   5745
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   840
  12.    ScaleWidth      =   5745
  13.    ShowInTaskbar   =   0   'False
  14.    Begin VB.Timer Timer1 
  15.       Interval        =   150
  16.       Left            =   480
  17.       Top             =   840
  18.    End
  19.    Begin VB.Label Label1 
  20.       BackColor       =   &H00FF0000&
  21.       Caption         =   "Please Wait While WebMon Exits"
  22.       BeginProperty Font 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   12
  25.          Charset         =   0
  26.          Weight          =   700
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H0000FFFF&
  32.       Height          =   375
  33.       Left            =   120
  34.       TabIndex        =   0
  35.       Top             =   240
  36.       Width           =   5535
  37.    End
  38. End
  39. Attribute VB_Name = "FrmExit"
  40. Attribute VB_GlobalNameSpace = False
  41. Attribute VB_Creatable = False
  42. Attribute VB_PredeclaredId = True
  43. Attribute VB_Exposed = False
  44. Option Explicit
  45.  
  46. Private Sub Timer1_Timer()
  47.     Label1.Caption = Label1.Caption & "."
  48.     DoEvents
  49. End Sub
  50.